User Contributed                                            MET/CAL Procedure
=============================================================================
INSTRUMENT:            Sub Decade 9 Steps CAL VER
DATE:                  11-Oct-94
AUTHOR:                User Contributed     
REVISION:              2.0
ADJUSTMENT THRESHOLD:  70%
NUMBER OF TESTS:       10
NUMBER OF LINES:       88
CONFIGURATION:         Datron 1281
=============================================================================
 STEP    FSC    RANGE NOMINAL        TOLERANCE     MOD1        MOD2  3  4 CON
#
# Sub of: Decade Resistor CAL
#
# This subroutine will test a ten (10) step decade with operator prompts
# to set the proper decade and steps.
# Register M[1] must contain the value in ohms /step for present decade.
# Register M[3] contains the zero offset that will be subtracted from the
# measured value. If the zero offset is not to be subtracted from the
# measured value then register M[3] should contain a zero (0).
# ASK- R N W are necessary to disable automatic messages.
# ASK- F stops on failures only for repeating or listing.
# ASK- P is necessary when using the MEMC FSC for repeating tests.
  1.001  ASK-   R     N              P                            F        W
#-----------------------------------------------------------------------------
#                            STEP 1
# Register M[2] must contain the step number in the decade.
#       Put increment step number into register M[2].
  1.002  MATH         M[2] = 1
  1.003  CALL         Sub Measure Decade Step CAL VER (Datron)
#       This comparison gets the nominal from MEM1 and compares with MEM
  1.004  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 2
  2.001  MATH         M[2] = 2
  2.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  2.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 3
  3.001  MATH         M[2] = 3
  3.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  3.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 4
  4.001  MATH         M[2] = 4
  4.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  4.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 5
  5.001  MATH         M[2] = 5
  5.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  5.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 6
  6.001  MATH         M[2] = 6
  6.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  6.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 7
  7.001  MATH         M[2] = 7
  7.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  7.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 8
  8.001  MATH         M[2] = 8
  8.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  8.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 9
  9.001  MATH         M[2] = 9
  9.002  CALL         Sub Measure Decade Step CAL VER (Datron)
  9.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 10
#10.001  MATH         M[2] = 10
#10.002  CALL         Sub Measure Decade Step CAL VER (Datron)
#10.003  MEMC         Z              TOL
#-----------------------------------------------------------------------------
#                            STEP 0
# At the end of each decade the operator has to set the decade to step 0.
 10.001  MATH         MEM = M[1]
 10.002  DISP         Set Decade [MEM] Ohms/Step to Step 0
# You could measure zero again here and store in register M[3].
 10.003  IEEE         [@1281]OHMS AUTO
 10.003  IEEE         [@1281]RDG?[I]
 10.004  MATH         M[3] = MEM
 10.005  END